COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.macro rot(top,width,εsss)	⊂
C00003 ENDMK
C⊗;
.macro rot(top,width,εsss);	⊂
.xxx←"";  yyy←"sss";  n←0;
.while("length(yyy)>0",|  zzz←scan(yyy,"@","","IS");
.  if length(zzz)≥width then xxx←xxx&zzz[1 to width] else
.	xxx←xxx&zzz&blanks[1 to width-length(zzz)];|);
.pub!debug;
.tabs (top-length(xxx)/width+1);  n←length(xxx)-width+1;
.while("n≤length(xxx)",|c←n; yyy←""; while("c>0","yyy←yyy&xxx[c]; c←c-width;");
.pub!debug;
. n←n+1;|);
.⊃

.blanks←"≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡";
.fro←"Lester D. Earnest@Artificial Intelligence Lab.@Stanford University@Stanford, Ca.";

.rot(83,40,fro);